get_count_som Subroutine

    subroutine get_count_som(kohonen_map,count_)
!========================================================================================
!!   Function to get count matrix for self_organizing_map 
        class(self_organizing_map) :: kohonen_map
!!
        integer,dimension(:,:,:),intent(inout) :: count_
!!
        count_=kohonen_map%number_patterns;
!   
    end subroutine get_count_som